home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Commercial / InstallAteoNet / InstallAteoBus < prev    next >
Encoding:
Text File  |  2000-01-01  |  35.3 KB  |  870 lines
  1.  
  2. ;***************************************************
  3. ;** * Installation de l'AtéoBus pour Amiga 1200   **
  4. ;**                                               **
  5. ;** * Installation des utilitaires pour l'AtéoBus **
  6. ;**       - StartAteoBus                          **
  7. ;**       - Picasso96                             **
  8. ;**       - ModePro                               **
  9. ;**                                               **
  10. ;** * Installation de AteoSer                     **
  11. ;**                                               **
  12. ;** * Installation de AteoPar                     **
  13. ;**                                               **
  14. ;** * Installation de AteoNet                     **
  15. ;**                                               **
  16. ;**                        Installation Rev. 1.34 **
  17. ;**                                 (19/04/2000)  **
  18. ;***************************************************
  19. ;
  20. ; Sorry, all languages are not translated...
  21. ; If you want to translate them in your home country
  22. ; language send us an E-Mail a fax or a letter.
  23. ; Buggs are also welcome :-)
  24. ;
  25. ;**************************************************
  26. ;
  27. ; Little History :
  28. ;-----------------
  29. ; 1.0ß : First release (30.03.98)
  30. ; 1.1ß : Add losts of stuff (under test)
  31. ; 1.2ß : Correct some textes + English translation
  32. ;   .
  33. ;   .
  34. ;   .
  35. ; 1.20 : Update Picasso 96 (1.43_ateo)
  36. ; 1.21 : Update StartAteoBus (5.05)
  37. ; 1.22 : Add compression of 'StartAteoBus' because out of space on floppy.
  38. ; 1.23 : New version of the ateopar.device (1.01).
  39. ; 1.24 : Forgot the ateobus.library (3.0).
  40. ; 1.25 : Fix bug in locale path + change "LOCALE:" by "SYS:Locale/" (strange trouble with OS 3.5)
  41. ;        New AteoSerPrefs revision (1.24)
  42. ;        New AteoParPrefs revision (1.24)
  43. ; 1.26 : New StartAteoBus revision (6.1)
  44. ; 1.27 : Update installer for the new "StartAteoBus"
  45. ;        New StartAteoBus revision (6.2)
  46. ;        New ateoser.device revision (0.391)
  47. ;        New AteoSerPrefs revision (2.52)
  48. ;        New AteoParPrefs revision (2.52)
  49. ;        New ateonet.device revision (1.8)
  50. ;        New programme AteoBusPrefs (2.306)
  51. ; 1.28 : Update all archives with lzx (compression ratio is bigger than lha)
  52. ;        New AteoBusPrefs revision (2.316)
  53. ; 1.29 : New AteoBusPrefs revision (2.318) again!
  54. ; 1.30 : Delete unused strings
  55. ; 1.31 : Add swedish localization (thanks to Jonny Johansson <jonny.johansson@mailbox.swipnet.se>)
  56. ; 1.32 : New AteoBusPrefs revision (2.327)
  57. ; 1.33 : Add german localization (thanks to Peter Hauke <twilight@Rcs1.urz.tu-dresden.de>)
  58. ; 1.34 : New AteoBus library revision (4.1)
  59. ;
  60. ;**************************************************
  61.  
  62. (set #Install_Rev        "1.34")
  63. (set #AteoBus_Rev        "2.2")
  64. (set #Pixel64_Rev        "A")
  65. (set #StartAteoBus_Rev    "6.2")
  66. (set #Picasso96_Rev        "1.43_ateo")
  67. (set #ModePro_Rev        "4.63")
  68. (set #AteoSerPrefs_Rev    "2.52")
  69. (set #AteoSerDevice_Rev    "0.391")
  70. (set #AteoParPrefs_Rev    "2.52")
  71. (set #AteoParDevice_Rev    "1.01")
  72. (set #AteoBusPrefs_Rev    "2.327")
  73. (set #AteoBusLibrary_Rev    "4.1")
  74. (set #AteoNetDevice_Rev    "1.8")
  75. (set #AmiTCP_Rev        "4.0")
  76. (set #Date            "19/04/2000")
  77.  
  78. (set #System             (getversion "intuition.library" (resident)))
  79. (set #System_Version    (/ #System 65536))
  80. (set #System_Revision    (- #System (* #System_Version 65536)))
  81. (set #Minimum_Memory    "2000000")
  82.  
  83. (set #Install_StartAteoBus    0)
  84. (set #Install_Pixel64        0)
  85. (set #Install_AteoSer        0)
  86. (set #Install_AteoPar        0)
  87. (set #Install_AteoNet        1)
  88.  
  89. (set #Install_Cmd_StartAteoBus    "Install")
  90. (set #Compressor                "LZX")
  91. (set #Install_Path                (pathonly @icon))
  92. (set #Working_Path                "RAM:Ateo-Concepts/")
  93. (set #Script_Name                "Execute_Me")
  94.  
  95. ; System
  96. (set #SYS                        "SYS:")
  97. (set #ENV                        "ENV:")
  98. (set #ENVARC                    "ENVARC:")
  99. (set #PRESETS                    (tackon #SYS "Prefs/Presets/Ateo_Concepts/"))
  100. (set #C                        "C:")
  101. (set #LIB                        "Libs:")
  102. (set #DEVS                    "Devs:")
  103. (set #NETWORKS                    (tackon #DEVS "Networks/"))
  104. (set #LOCALE                    (tackon (tackon "SYS:Locale/Catalogs/" @language) "Ateo_Concepts/"))
  105. (set #ATEOPREFS                (tackon #SYS "Prefs/Ateo_Concepts/"))
  106. (set #Ext_Catalog                ".catalog")
  107. (set #Ext_Info                    ".info")
  108.  
  109. ; StartAteoBus
  110. (set #S_Path_StartAteoBus        (tackon #Install_Path "StartAteoBus/"))
  111. (set #File_StartAteoBus            "StartAteoBus")
  112. (set #File_AteoBusServer            "AteoBusServer")
  113. (set #File_AteoBus_Library        "ateobus.library")
  114.  
  115. ; AteoBusPrefs
  116. (set #S_Path_AteoBusPrefs        (tackon #Install_Path "AteoBusPrefs/"))
  117. (set #S_Path_Catalog_AteoBusPrefs    (tackon #S_Path_AteoBusPrefs (tackon "catalogs/" @language)))
  118. (set #File_AteoBusPrefs            "AteoBusPrefs")
  119.  
  120. ; Picasso96
  121. (set #S_Path_Picasso96            (tackon #Install_Path "Pixel64/"))
  122. (set #S_Path_Install_Picasso96    (tackon #Working_Path "Picasso96Install/"))
  123. (set #File_Picasso96            "Picasso96")
  124. (set #File_Install_Picasso96        "InstallPicasso96")
  125.  
  126. ; ModePro
  127. (set #S_Path_ModePro             (tackon #Install_Path "Pixel64/"))
  128. (set #S_Path_Install_ModePro         (tackon #Working_Path "ModePro/"))
  129. (set #File_ModePro                 "ModePro")
  130. (set #File_Install_ModePro         "InstallModePro")
  131. (set #File_Prefs_ModePro         "ModePro.Pref")
  132.  
  133. ; AteoSerPrefs & AteoParPrefs
  134. (set #S_Icone_AteoPrefs            (tackon #Install_Path (cat "StartAteoBus" #Ext_Info)))
  135. (set #Default_Device_Name        "scsi.device")
  136. (set #Default_Device_Unit        0)
  137.  
  138. ; AteoSerPrefs
  139. (set #S_Path_AteoSer            (tackon #Install_Path "AteoSer/"))
  140. (set #S_Path_Catalog_AteoSer        (tackon #S_Path_AteoSer (tackon "catalogs/" @language)))
  141. (set #File_AteoSerPrefs            "AteoSerPrefs")
  142. (set #File_AteoSerDevice            "ateoser.device")
  143. (set #File_AteoSerPresets        "ateoser.pre")
  144.  
  145. ; AteoParPrefs
  146. (set #S_Path_AteoPar            (tackon #Install_Path "AteoPar/"))
  147. (set #S_Path_Catalog_AteoPar        (tackon #S_Path_AteoPar (tackon "catalogs/" @language)))
  148. (set #File_AteoParPrefs            "AteoParPrefs")
  149. (set #File_AteoParDevice            "ateopar.device")
  150. (set #File_AteoParPresets        "ateopar.pre")
  151.  
  152. ; AteoNet
  153. (set #S_Path_AteoNet            (tackon #Install_Path "AteoNet/"))
  154. (set #S_Path_AmiTCP                (tackon #Install_Path "AteoNet/"))
  155. (set #S_Path_Install_AmiTCP        (tackon #Working_Path "AmiTCP-4.0/"))
  156. (set #File_AmiTCP                "AmiTCP")
  157. (set #File_Install_AmiTCP        "Install_AmiTCP")
  158. (set #File_AteoNetDevice            "ateonet.device")
  159. (set #File_AteoNetPresets        "ateonet.pre")
  160.  
  161.  
  162. ;********************************
  163. ;************ TEXTES ************
  164. ;********************************
  165.  
  166. (if (= @language "français")
  167. (
  168.     (set #Mess_Translation_Name "Atéo Concepts")
  169.  
  170.      (if (= #Install_StartAteoBus "1")
  171.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoBus"))
  172.      (if (= #Install_Pixel64 "1")
  173.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoBus et de la Pixel64"))
  174.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  175.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoSer"))
  176.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  177.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoPar"))
  178.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  179.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoNet"))
  180.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  181.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoSer et de l'AtéoPar"))
  182.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  183.           (set #Mess_Welcome "Bienvenue à l'installation de : AtéoSer, AtéoPar et AteoNet"))
  184.  
  185.      (set #Mess_Choice "Choisisez les programmes à installer :")
  186.     (set #Help_Choice (cat    "Selectionnez les modules que vous voulez installez :"
  187.                         "\n-AtéoBus : Absolument nécessaire sinon l'Amiga 1200 ne reconnaitra pas l'AtéoBus."
  188.                         "\n-Picasso96 : C'est le programme qui gère les cartes graphiques et permet l'affichage d'un écran le moniteur (nécessaire si vous avez une Pixel64)."
  189.                         "\n-ModePro : Est-ce qu'on appel un 'promoteur d'écran'. C'est lui qui \"transforme\" les ouvertures d'écrans PAL, NTSC, ou autres, vers des écrans Pixel64 pour les programmes qui ne permettent pas de choisir des écrans Pixel64 directement."))
  190.  
  191.     (set #Mess_Prepare "Maintenant, quelques fichiers\nvont-êtres copiés en mémoire pour\npréparer l'installation.")
  192.     (set #Mess_Expand "Décompression du fichier")
  193.     (set #Mess_CopyFile-1 "Nous allons maintenant installer")
  194.     (set #Mess_CopyFile-2 "* Si ce fichier n'existe pas,\nil sera copié\n\n* Si ce fichier existe,\nil sera mis à jour si nécessaire...\n\n-->> Cliquez pour continuer <<--")
  195.     (set #Mess_CopyFileCV "Copie du fichier")
  196.     (set #Mess_Update_Startup (cat     "Une commande va être ajouté\nà la 'Startup-Sequence'\nafin que l'AtéoBus soit reconu\nau démarrage par l'Amiga."
  197.                                 "\n\n\n(une sauvegarde de la 'Startup-Sequence'\nsera faite sous le nom :\n'Startup-Sequence.old')"))
  198.     (set #Mess_Choice_Source "Voulez-vous installer ce programme\ndepuis la disquette fournie ou\ndepuis une source plus récente ?")
  199.     (set #Help_Choice_Source (cat    "-Si c'est la première installation que vous faite, choisisez l'installation depuis la disquette."
  200.                             "\n-Si vous avez récupérez une archive plus récente que celle que nous fournissons, vous pouvez selectionner le deuxième choix."))
  201.  
  202.     (set #Mess_Floppy_Source "Depuis la disquette fournie")
  203.     (set #Mess_Other_Source "Depuis une source plus récente")
  204.     (set #Mess_Select_Path "Dans quel répertoire ce trouve l'archive ?")
  205.     (set #Mess_No_Source "Il n'y a pas d'archive dans le répertoire que vous avez indiqué")
  206.     (set #Mess_Create_Repertory "Création d'un dossier 'Ateo_Concepts'\ndans le répertoire 'SYS:Prefs'\nafin de regrouper tous les\nprogrammes de préférence pour l'AtéoBus")
  207.  
  208.     (set #Mess_Run_Install "Lancement de l'installation")
  209.     (set #Mess_Wait "Veuillez patientez quelques instants...")
  210.  
  211.     (set #Mess_Prefs_ModePro "Un fichiers de préférences\ndu programme ModePro existe\ndéjà sur votre disque dur.\nVoulez-vous le remplacer par\ndes préférences pour la Pixel64 ?")
  212.     (set #Help_Prefs_ModePro "Vous avez déjà un fichier de préférence pour le programme ModePro.\nSi vous selectionnez l'option 'oui' vos anciènnes préférences vont-êtres éffacées. Si vous voulez les garder, selectionnez 'non'.")
  213.  
  214.     (set #Mess_CleanUp "Effacement des fichiers temporaires de la mémoire")
  215.     (set #Mess_End "L'installation est finie")
  216.  
  217.     (set #Mess_Error_Startup "Une erreur est survenue lors de la\nmise à jour de la 'Startup-Sequence'.\n\nLa 'Startup-Sequence' originale va étre restaurée...")
  218.     (set #Mess_Error_Memory "L'Amiga n'a pas assez de mémoire.\nEssayez de désactiver tous les autres\nprogrammes en marche et recommencez.\n\nSi l'installation ne fonctionne toujours pas,\nmettez plus de mémoire dans l'Amiga\navant d'essayer à nouveau")
  219. ))
  220.  
  221. (if (= @language "english")
  222. (
  223.     (set #Mess_Translation_Name "Atéo Concepts")
  224.  
  225.      (if (= #Install_StartAteoBus "1")
  226.          (set #Mess_Welcome "Welcome to the AtéoBus installation"))
  227.      (if (= #Install_Pixel64 "1")
  228.          (set #Mess_Welcome "Welcome to the AtéoBus and Pixel64 Installation"))
  229.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  230.          (set #Mess_Welcome "Welcome to the AtéoSer installation"))
  231.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  232.          (set #Mess_Welcome "Welcome to the AtéoPar installation"))
  233.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  234.          (set #Mess_Welcome "Welcome to the AtéoNet installation"))
  235.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  236.           (set #Mess_Welcome "Welcome to the AtéoSer and AtéoPar installation"))
  237.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  238.           (set #Mess_Welcome "Welcome to the AtéoSer, AtéoPar and AtéoNet installation"))
  239.  
  240.      (set #Mess_Choice "Choose softwares to install :")
  241.     (set #Help_Choice (cat    "Select modules you want to install :"
  242.                         "\n-AtéoBus : You absolutly need it, otherwise the Amiga won't recognize the AtéoBus."
  243.                         "\n-Picasso96 : This is the program that manage graphics boards and allow display on a monitor's screen (necessary if you have a Pixel64)."
  244.                         "\n-ModePro : Is what we call a 'screen promotor'. This is it that \"promote\" PAL, NTSC, and other, opening screens to Pixel64's screen for programs that doesn't allow to choose directly a Pixel64's screen."))
  245.  
  246.     (set #Mess_Prepare "Now, files will be copy\nin memory to prepare\nthe installation.")
  247.     (set #Mess_Expand "Extracting the file")
  248.     (set #Mess_CopyFile-1 "We will now install")
  249.     (set #Mess_CopyFile-2 "* If this file doesn't exists,\nit will be created\n\n* If this file exists,\nit will be updated if necessary...\n\n-->> Click to continue <<--")
  250.     (set #Mess_CopyFileCV "Installing file")
  251.     (set #Mess_Update_Startup (cat    "One line will be add to the\n'Startup-Sequence' so that the AtéoBus\nwill appear after you start the Amiga."
  252.                                 "\n\n\n(a backup copy of the 'Startup-Sequence'\nwill be done under the name :\n'Startup-Sequence.old')"))
  253.     (set #Mess_Choice_Source "Do you want to install this file\nfrom the supplied floppy disk or\nfrom a newer source ?")
  254.     (set #Help_Choice_Source (cat    "-If it's the first time you make the installation, choose the installation from the supllied floppy disk."
  255.                             "\n-If you have found a newer archive that the one we supply, you can choose the second choice."))
  256.  
  257.     (set #Mess_Floppy_Source "From the supplied floppy disk")
  258.     (set #Mess_Other_Source "From a newer source")
  259.     (set #Mess_Select_Path "In witch drawer is the archive ?")
  260.     (set #Mess_No_Source "There is no archive in the drawer that you choose")
  261.     (set #Mess_Create_Repertory "Creation of the 'Ateo_Concepts' directory\nin the repertory 'SYS:Prefs'\nto gather all the preferences\nprograms for the AtéoBus")
  262.  
  263.     (set #Mess_Run_Install "Starting the installation")
  264.     (set #Mess_Wait "Please wait a few time...")
  265.  
  266.     (set #Mess_Prefs_ModePro "A preferences file for ModePro\nalready exist on your hard drive.\nDo you want to replace them by\npreferences for thePixel64 ?" )
  267.     (set #Help_Prefs_ModePro "You alreay have a preference file for the ModePro software.\nIf you choose the option 'yes' your old setings will be deleted. If you want to keep them, choose 'no'.")
  268.  
  269.     (set #Mess_CleanUp "Deleting temporary files from memory")
  270.     (set #Mess_End "The installation is finished")
  271.  
  272.     (set #Mess_Error_Startup "One error occurs during\nthe up to date of the 'Startup-Sequence'.\n\nThe original 'Startup-Sequence' will be copy back...")
  273.     (set #Mess_Error_Memory "The Amiga doesn't have enough memory.\nTry to desactivate all other\nworking programs and restart.\n\nIf the installation still doesn't work,\nadd memory to the Amiga\nbefore to try again")
  274. ))
  275.  
  276. (if (= @language "svenska")
  277. (
  278.     (set #Mess_Translation_Name "Jonny Johansson")
  279.  
  280.      (if (= #Install_StartAteoBus "1")
  281.          (set #Mess_Welcome "Välkommen till installationsprogrammet för Atéobus"))
  282.      (if (= #Install_Pixel64 "1")
  283.          (set #Mess_Welcome "Välkommen till installationsprogrammet för Atéobus och Pixel64"))
  284.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  285.          (set #Mess_Welcome "Välkommen till installationsprogrammet för AtéoSer"))
  286.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  287.          (set #Mess_Welcome "Välkommen till installationsprogrammet för AtéoPar"))
  288.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  289.          (set #Mess_Welcome "Välkommen till installationsprogrammet för AtéoNet"))
  290.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  291.           (set #Mess_Welcome "Välkommen till installationsprogrammet för AtéoSer och AtéoPar"))
  292.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  293.           (set #Mess_Welcome "Välkommen till installationsprogrammet för AtéoSer, AtéoPar och AtéoNet"))
  294.  
  295.      (set #Mess_Choice "Välj vilken mjukvara du vill installera:")
  296.     (set #Help_Choice (cat    "Välj vilka moduler du vill installera:"
  297.                         "\n-AtéoBus   : Absolut nödvändig. Utan den kan Amigan inte känna igen din AtéoBus."
  298.                         "\n-Picasso96 : Programvara som hanterar grafikkort och skärmvisning (nödvändigt om du har ett Pixel64)."
  299.                         "\n-ModePro   : ...är vad vi kallar en 'skärmlägesbefordrare'. Med detta menas att den \"befordrar\" PAL, NTSC, och andra skärmar som öppnas, till att istället använda en Pixel64skärm, för program som inte direkt låter dig välja Pixel64:ans skärm."))
  300.  
  301.     (set #Mess_Prepare "Nu kommer filer att kopieras till\nRAM: för att förbereda\ninstallationen.")
  302.     (set #Mess_Expand "Packar upp filen")
  303.     (set #Mess_CopyFile-1 "Vi kommer nu att installera")
  304.     (set #Mess_CopyFile-2 "* Om en fil med detta namn redan finns,\nkommer den att uppdateras om nödvändigt...\n\n-->> Klicka för att fortsätta <<--")
  305.     (set #Mess_CopyFileCV "Installerar filen")
  306.     (set #Mess_Update_Startup (cat    "En rad kommer att läggas till i din\n'Startup-Sequence' så att din AtéoBus\nstartas vid uppstart av datorn."
  307.                                 "\n\n\n(en säkerhetskopia av din nuvarande 'Startup-Sequence'\nskapas under namnet :\n'Startup-Sequence.old')"))
  308.     (set #Mess_Choice_Source "Vill du installera denna fil\nfrån den medpacketerade disketten eller\nfrån en annan källa?")
  309.     (set #Help_Choice_Source (cat    "-Om detta är en första installation, välj att använda orginaldisketten."
  310.                             "\n-Om du kommit över ett nyare arkiv från oss, kan du välja det andra alternativet."))
  311.  
  312.     (set #Mess_Floppy_Source "Från originaldiskett")
  313.     (set #Mess_Other_Source "Från annan källa")
  314.     (set #Mess_Select_Path "I vilken låda finns arkivet?")
  315.     (set #Mess_No_Source "Det finns inget arkiv i lådan du valt.")
  316.     (set #Mess_Create_Repertory "En låda 'Ateo_Concepts' kommer att skapas i\n'SYS:Prefs', för att samla alla\ninställningsprogram för AtéoBus och kort för den")
  317.  
  318.     (set #Mess_Run_Install "Inleder installationen")
  319.     (set #Mess_Wait "Var god vänta...")
  320.  
  321.     (set #Mess_Prefs_ModePro "En fil med inställningar för ModePro\nfinns redan på din hårddisk.\nVill du ersätta den med\ninställningar för Pixel64 ?" )
  322.     (set #Help_Prefs_ModePro "Du har redan en fil med inställningar för ModePro.\nOm du väljer 'ja', kommer dina gamla inställningar att skrivas över. Om du vill behålla dem; välj 'nej'.")
  323.  
  324.     (set #Mess_CleanUp "Raderar tillfälliga filer från minnet")
  325.     (set #Mess_End "Installationen är nu färdig")
  326.  
  327.     (set #Mess_Error_Startup "Ett fel inträffade vid\nändringen av din 'Startup-Sequence'.\n\nÅterställer till den gamla filen...")
  328.     (set #Mess_Error_Memory "Din Amiga har för lite minne.\nFrigör minne och försök igen.\n\nOm installationen ändå misslyckas;\ninstallera mer minne innan du försöker igen.")
  329. ))
  330.  
  331. (if (= @language "deutsch")
  332. (
  333.     (set #Mess_Translation_Name "Peter Hauke")
  334.  
  335.     (if (= #Install_StartAteoBus "1")
  336.         (set #Mess_Welcome "Willkommen zur AtéoBus Installation"))
  337.     (if (= #Install_Pixel64 "1")
  338.         (set #Mess_Welcome "Willkommen zur AtéoBus und Pixel64 Installation"))
  339.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  340.         (set #Mess_Welcome "Willkommen zur AtéoSer Installation"))
  341.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  342.         (set #Mess_Welcome "Willkommen zur AtéoPar Installation"))
  343.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  344.         (set #Mess_Welcome "Willkommen zur AtéoNet Installation"))
  345.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  346.          (set #Mess_Welcome "Willkommen zur AtéoSer und AtéoPar Installation"))
  347.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  348.          (set #Mess_Welcome "Willkommen zur AtéoSer, AtéoPar und AtéoNet Installation"))
  349.  
  350.     (set #Mess_Choice "Wählen Sie, welche Softwaremodule installiert werden sollen :")
  351.     (set #Help_Choice (cat    "Wählen Sie die zu installierenden Module :"
  352.                         "\n- AtéoBus : Ohne dieses Modul kann der AtéoBus nicht erkannt werden."
  353.                         "\n- Picasso96 : Dieses Programm verwaltet die Grafikdarstellung auf Grafikkarten. (Nötig für Pixel64-Besitzer)."
  354.                         "\n- ModePro : Dieses Tool ermöglicht es Ihnen, Amigaauflösungen wie PAL oder NTSC auf Grafikkarten \"umzulenken\". Nötig ist dies bei Programmen, die keine Auswahl des Bildschirmes ermöglichen."))
  355.  
  356.     (set #Mess_Prepare "Dateien für die Installation ins Ram kopieren.")
  357.     (set #Mess_Expand "Dateien entpacken")
  358.     (set #Mess_CopyFile-1 "Datei installieren")
  359.     (set #Mess_CopyFile-2 "* Wenn diese Datei nicht existiert,\n wird sie erstellt\n\n* Wenn diese Datei existiert,\nwird sie nötigenfalls abgeändert...\n\n-->> Weiter <<--")
  360.     (set #Mess_CopyFileCV "Dateien kopieren")
  361.     (set #Mess_Update_Startup (cat    "Eine Zeile wird an die \n'Startup-Sequence' angefügt. Damit wird \nder AtéoBus bei jedem Systemstart aktiviert."
  362.                             "\n\n\n(Die alte 'Startup-Sequence wird \nals 'Startup-Sequence.old' behalten!)"))
  363.     (set #Mess_Choice_Source "Wollen Sie diese Datei von der \noriginalen Install-Disk kopieren oder \nhaben Sie ein Update-Archiv aus dem Internet?")
  364.     (set #Help_Choice_Source (cat    "- Wenn das die erste Installation ist wählen Sie \"Installation von Install-Disk\"."
  365.                             "\n- Wenn Sie ein neueres Update-Archiv uas dem Internet haben, wählen Sie \"Update installieren\"."))
  366.  
  367.     (set #Mess_Floppy_Source "Originale Install-Disk")
  368.     (set #Mess_Other_Source "Update-Archiv installieren")
  369.     (set #Mess_Select_Path "In welchem Verzeichnis befindet sich das Update-Archiv?")
  370.     (set #Mess_No_Source "In diesem Verzeichnis befindet sich kein Update-Archiv")
  371.     (set #Mess_Create_Repertory "Verzeichnis 'Ateo_Concepts' in 'SYS:Prefs'\nerstellen. Die Voreinstellertools werden\nspäter hierhin kopiert.")
  372.     (set #Mess_Run_Install "Installation wird gestartet")
  373.     (set #Mess_Wait "Einen Moment bitte ...")
  374.     (set #Mess_Prefs_ModePro "Ein prefs-File für ModePro existiert bereits!\nSoll es durch ein spezielles \nPixel64 prefs-File ersetzt werden?" )
  375.     (set #Help_Prefs_ModePro "Es existiert bereits ein Datei mit Voreinstellungen für ModePro. Wenn Sie 'Ja' wählen, wird diese Datei gelöscht und durch eine neue, speziell für die Pixel64 angepaßte Datei ersetzt. Wählen Sie 'Nein' um die alte Datei zu behalten.")
  376.     (set #Mess_CleanUp "Lösche temporäre Dateien aus der Ram-Disk")
  377.     (set #Mess_End "Die Installation wurde erfolgreich beendet.")
  378.     (set #Mess_Error_Startup "Ein Fehler ist aufgetreten. Die 'Startup-Sequence' konnte nicht bearbeitet werden. Die alte 'Startup-Sequence' wird wieder hergestellt!")
  379.     (set #Mess_Error_Memory "Speichermangel!\nBeenden Sie alle laufende Programme und\nstarten Sie die Installation noch einmal.\nTritt dieser Fehler erneut auf, erweitern Sie Ihren \nAmiga mit mehr Speicher.")
  380. ))
  381.  
  382. ;(if (= @language "italiano")
  383. ;(
  384. ;    (set #Rien "Nothing!")
  385. ;))
  386.  
  387. ;(if (= @language "español")
  388. ;(
  389. ;    (set #Rien "Nothing!")
  390. ;))
  391.  
  392. ;(if (= @language "suisse")
  393. ;(
  394. ;    (set #Rien "Nothing!")
  395. ;))
  396.  
  397.  
  398. ;************************************
  399. ;************ PROCEDURES ************
  400. ;************************************
  401.  
  402. (procedure AskSource #Def_Source #Version
  403.     (set #Choix
  404.         (askchoice
  405.             (prompt "->  " (fileonly #Def_Source) " " #Version " <-\n\n" #Mess_Choice_Source "\n")
  406.             (choices #Mess_Floppy_Source #Mess_Other_Source)
  407.             (help "\n" #Help_Choice_Source)
  408.             (default 0)
  409.         )
  410.     )
  411.  
  412.     (set #Source (cat #Def_Source ".lzx"))
  413.     (set #Destination #Working_Path)
  414.  
  415.     (if (= #choix "1")
  416.     (
  417.         (set #Reponse "1")
  418.  
  419.         (while (= #Reponse "1")
  420.             (set #Choix
  421.                 (askdir
  422.                     (help "Not yet!")
  423.                     (prompt "-> " (fileonly #Def_Source) " <-\n\n" #Mess_Select_Path "\n")
  424.                     (disk)
  425.                     (default #Install_Path)
  426.                 )
  427.             )
  428.  
  429.             (set #Reponse "0")
  430.  
  431.             (if (NOT (exists (cat (tackon #Choix (fileonly #Def_Source)) ".lzx")))
  432.                 (set #Reponse    (askbool
  433.                                 (prompt "\n\n" #Mess_No_Source "...")
  434.                                 (default 1)
  435.                                 (help "Not yet!")
  436.                             )
  437.                 )
  438.                 (set #Source (cat (tackon #Choix (fileonly #Def_Source)) ".lzx"))
  439.             )
  440.         )
  441.     ))
  442. )
  443.  
  444. (procedure CopyFile #Source #Destination
  445.     (copyfiles
  446.         (source #Source)
  447.         (dest (pathonly #Destination))
  448.         (newname (fileonly #Destination))
  449.         (safe)
  450.         (files)
  451.         (optional nofail)
  452.     )
  453. )
  454.  
  455. (procedure CopyFileCV #Source #Destination
  456.     (message "\n\n" #Mess_CopyFile-1  " \"" #Destination "\".\n\n\n" #Mess_CopyFile-2)
  457.     (copylib
  458.         (prompt "\n" #Mess_CopyFileCV " \"" (fileonly #Destination) "\"")
  459.         (help "No help!")
  460.         (confirm)
  461.         (source #Source)
  462.         (dest (pathonly #Destination))
  463.         (newname (fileonly #Destination))
  464. ;        (safe)
  465.         (optional fail)
  466. ;        (nogauge)
  467.     )
  468. )
  469.  
  470. (procedure Expand #Source #Nom
  471.     (transcript "Decompress file : " #Nom ".lzx")
  472.     (working #Mess_Expand " : " #Nom ".lzx\n\n" #Mess_Wait)
  473. ;    (if    (run (cat (tackon #Working_Path #Compressor) " -2MN e \"" #Source "\" " #Working_Path))
  474.     (if    (run (cat (tackon #Working_Path #Compressor) " x \"" #Source "\" " #Working_Path))
  475.         (abort "Error while decompressing file")
  476.     )
  477. )
  478.  
  479. (procedure Lancement #Nom
  480.     (transcript "Running file : " #Nom)
  481.     (working #Mess_Run_Install " : " #Nom)
  482.     (if    (execute
  483.             (safe)
  484.               (tackon #Working_Path #Script_Name)
  485.         )
  486.         (abort "Error in the script file (procedure Lancement)")
  487.     )
  488. )
  489.  
  490. (procedure StartAteoBus
  491.     (CopyFileCV (tackon #Working_Path #File_AteoBus_Library) (tackon #LIB #File_AteoBus_Library))
  492.     (CopyFileCV (tackon #Working_Path #File_StartAteoBus) (tackon #C #File_StartAteoBus))
  493.     (CopyFileCV (tackon #Working_Path #File_AteoBusServer) (tackon #C #File_AteoBusServer))
  494.  
  495.     (if (NOT (run (cat (tackon #Install_Path #Install_Cmd_StartAteoBus) " check")))
  496.     (
  497.         (message "\n\n" #Mess_Update_Startup)
  498.  
  499.         ; Vérification de l'éxistance d'un fichier 'Startup-Sequence.old'
  500.         ; puis effacement...
  501.         (if (exists "S:Startup-Sequence.old")
  502.             (delete
  503.                 "S:Startup-Sequence.old"
  504.                 (optional "force")
  505.         ))
  506.  
  507.         ; Backup de la 'Startup-Sequence' avant de la modifier
  508.         (CopyFile "S:Startup-Sequence" "S:Startup-Sequence.old")
  509.  
  510.         (if (NOT (run (tackon #Install_Path #Install_Cmd_StartAteoBus)))
  511.         (
  512.             (message "\n\n" #Mess_Error_Startup)
  513.             (if (exists "S:Startup-Sequence")
  514.                 (delete
  515.                     "S:Startup-Sequence"
  516.                     (optional "force")
  517.             ))
  518.  
  519.             ; Restauration de la 'Startup-Sequence'
  520.             (CopyFile "S:Startup-Sequence.old" "S:Startup-Sequence")
  521.         ))
  522.     ))
  523. )
  524.  
  525. (procedure CheckDrawers
  526.     ; Vérification et/ou création du répertoire pour les préférences
  527.     (if (NOT (exists (pathonly #ATEOPREFS)))
  528.     (
  529.         (message "\n\n" #Mess_Create_Repertory)
  530.         (makedir (pathonly #ATEOPREFS))
  531.         (CopyFile #S_Icone_AteoPrefs (cat (pathonly #ATEOPREFS) #Ext_Info))
  532.         (tooltype
  533.             (dest (pathonly #ATEOPREFS))
  534.             (settooltype "** ICON BY ATEO CONCEPTS **" "")
  535.             (noposition)
  536.         )
  537.     ))
  538.  
  539.     ; Vérification et/ou création du répertoire pour les presets
  540.     (if (NOT (exists (pathonly #PRESETS)))
  541.         (makedir (pathonly #PRESETS))
  542.     )
  543.  
  544.     ; Vérification et/ou création du répertoire pour les catalogues
  545.     (if (NOT (exists #LOCALE))
  546.         (makedir #LOCALE)
  547.     )
  548. )
  549.  
  550. (procedure AteoBusPrefs
  551.     (CheckDrawers)
  552.  
  553.     ; Copie de AteoBusPrefs + icône
  554.     ;******************************
  555.     (CopyFileCV (tackon #S_Path_AteoBusPrefs #File_AteoBusPrefs) (tackon #ATEOPREFS #File_AteoBusPrefs))
  556.  
  557.     (if (NOT (exists (tackon #ATEOPREFS (cat #File_AteoBusPrefs #Ext_Info))))
  558.     (
  559.         (CopyFile (tackon #S_Path_AteoBusPrefs (cat #File_AteoBusPrefs #Ext_Info)) (tackon #ATEOPREFS (cat #File_AteoBusPrefs #Ext_Info)))
  560.     ))
  561.  
  562.     ; Copie du catalogue
  563.     ;*******************
  564.     (if (exists (tackon #S_Path_Catalog_AteoBusPrefs (cat #File_AteoBusPrefs #ext_Catalog)))
  565.         ; Copie du catalogue
  566.         (CopyFileCV (tackon #S_Path_Catalog_AteoBusPrefs (cat #File_AteoBusPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoBusPrefs #ext_Catalog)))
  567.     )
  568. )
  569.  
  570. (procedure AteoSer
  571.     (CheckDrawers)
  572.  
  573.     ; Copie de AteoSerPrefs + icône
  574.     ;******************************
  575.     (CopyFileCV (tackon #S_Path_AteoSer #File_AteoSerPrefs) (tackon #ATEOPREFS #File_AteoSerPrefs))
  576.  
  577.     (if (NOT (exists (tackon #ATEOPREFS (cat #File_AteoSerPrefs #Ext_Info))))
  578.         (CopyFile (tackon #S_Path_AteoSer (cat #File_AteoSerPrefs #Ext_Info)) (tackon #ATEOPREFS (cat #File_AteoSerPrefs #Ext_Info)))
  579.     )
  580.  
  581.     ; Copie du catalogue
  582.     ;*******************
  583.     (if (exists (tackon #S_Path_Catalog_AteoSer (cat #File_AteoSerPrefs #ext_Catalog)))
  584.         ; Copie du catalogue
  585.         (CopyFileCV (tackon #S_Path_Catalog_AteoSer (cat #File_AteoSerPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoSerPrefs #ext_Catalog)))
  586.     )
  587.  
  588.     (AteoBusPrefs)
  589.  
  590.     ; Copie de AteoSer.Device + Presets
  591.     ;**********************************
  592.     (CopyFileCV (tackon #S_Path_AteoSer #File_AteoSerDevice) (tackon #DEVS #File_AteoSerDevice))
  593.     (CopyFile (tackon #S_Path_AteoSer #File_AteoSerPresets) (tackon #PRESETS #File_AteoSerPresets))
  594. )
  595.  
  596. (procedure AteoPar
  597.     (CheckDrawers)
  598.  
  599.     ; Copie de AteoParPrefs + icône
  600.     ;******************************
  601.     (CopyFileCV (tackon #S_Path_AteoPar #File_AteoParPrefs) (tackon #ATEOPREFS #File_AteoParPrefs))
  602.  
  603.     (if (NOT (exists (tackon #ATEOPREFS (cat #File_AteoParPrefs #Ext_Info))))
  604.         (CopyFile (tackon #S_Path_AteoPar (cat #File_AteoParPrefs #Ext_Info)) (tackon #ATEOPREFS (cat #File_AteoParPrefs #Ext_Info)))
  605.     )
  606.  
  607.     ; Copie du catalogue
  608.     ;*******************
  609.     (if (exists (tackon #S_Path_Catalog_AteoPar (cat #File_AteoParPrefs #ext_Catalog)))
  610.         ; Copie du catalogue
  611.         (CopyFileCV (tackon #S_Path_Catalog_AteoPar (cat #File_AteoParPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoParPrefs #ext_Catalog)))
  612.     )
  613.  
  614.     (AteoBusPrefs)
  615.  
  616.     ; Copie de AteoPar.Device + Presets
  617.     ;**********************************
  618.     (CopyFileCV (tackon #S_Path_AteoPar #File_AteoParDevice) (tackon #DEVS #File_AteoParDevice))
  619.     (CopyFile (tackon #S_Path_AteoPar #File_AteoParPresets) (tackon #PRESETS #File_AteoParPresets))
  620. )
  621.  
  622. (procedure AteoNet
  623.     (CheckDrawers)
  624.  
  625.     ; Vérification et/ou création du répertoire pour le device
  626.     (if (NOT (exists #NETWORKS))
  627.         (makedir #NETWORKS)
  628.     )
  629.  
  630.     ; Copie de AteoNet.Device + Presets
  631.     ;**********************************
  632.     (CopyFileCV (tackon #S_Path_AteoNet #File_AteoNetDevice) (tackon #NETWORKS #File_AteoNetDevice))
  633.     (CopyFile (tackon #S_Path_AteoNet #File_AteoNetPresets) (tackon #PRESETS #File_AteoNetPresets))
  634.  
  635.     (AteoBusPrefs)
  636.  
  637.     ;Copie et installation du programme `AmiTCP'
  638.     ;*******************************************
  639.     (AskSource (tackon #S_Path_AmiTCP #File_AmiTCP) #AmiTCP_Rev)
  640.     (Expand #Source "AmiTCP")
  641.     (textfile
  642.         (safe)
  643.         (dest (tackon #Working_Path #Script_Name))
  644.         (append
  645.             "Stack 20000\n"
  646.             "Cd " #S_Path_Install_AmiTCP "\n"
  647.             #Working_Path "Installer " #File_Install_AmiTCP
  648.             " LANGUAGE " @language " APPNAME AmiTCP MINUSER AVERAGE\n"
  649.         )
  650.     )
  651.     (Lancement #File_Install_AmiTCP)
  652. )
  653.  
  654.  
  655. ;***************************************
  656. ;************ INSTALLATIONS ************
  657. ;***************************************
  658.  
  659. (complete 0)
  660.  
  661. (onerror
  662.     (working "\n" #Mess_CleanUp "...\n\n" #Mess_Wait)
  663.     (delete
  664.         (all)
  665.         (safe)
  666.         (optional "force")
  667.         #Working_Path
  668.     )
  669. )
  670.  
  671. (message "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  672. #Mess_Welcome
  673.         "\n\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  674.         "\n\nInstallation " #Install_Rev " (" #Date ")"
  675.         "\n- Translated by : " #Mess_Translation_Name " -"
  676.         "\nCopyright © Atéo Concepts 1999/2000"
  677.         "\n\n(note : If you want to integrate your local translation, please contact Atéo Concepts <info@ateo-concepts.com>)"
  678. )
  679.  
  680. (welcome)
  681.  
  682. ; Test de la mémoire
  683. ;*******************
  684. (set #Avail_Memory (database "total-mem"))
  685. (transcript "Mémoire nécessaire : " #Minimum_Memory)
  686. (transcript "Mémoire disponible : " #Avail_Memory)
  687. ;(if (< #Avail_Memory #Minimum_Memory)
  688. ;(
  689. ;    (transcript "Not enought memrory. End of installation...")
  690. ;    (abort (cat "\n" #Mess_Error_Memory "..."))
  691. ;))
  692.  
  693. (complete 5)
  694.  
  695. ;(if (OR (= #Install_Pixel64 "1") (= #Install_AteoNet "1"))
  696. ;(
  697.     ; Création d'un répertoire en ram et copie de quelques fichiers
  698.     ;**************************************************************
  699.     (makedir
  700.          #Working_Path
  701.          (safe)
  702.      )
  703.     (message (cat "\n\n" #Mess_Prepare))
  704.     (CopyFile (tackon #Install_Path "Installer") (tackon #Working_Path "Installer"))
  705.     (CopyFile (tackon #Install_Path #Compressor) (tackon #Working_Path #Compressor))
  706. ;))
  707.  
  708. (complete 20)
  709.  
  710. ; Installation : AteoBus.library et StartAteoBus
  711. ;***********************************************
  712. (Expand (cat (tackon #S_Path_StartAteoBus #File_StartAteoBus) ".lzx") "StartAteoBus")
  713. (complete 30)
  714. (StartAteoBus)
  715.  
  716. (complete 40)
  717.  
  718. ; Installation : Install_Pixel64
  719. ;--------------------------------
  720. (if (= #Install_Pixel64 "1")
  721. (
  722.     (set #Flag_Picasso96    1)
  723.     (set #Flag_ModePro        2)
  724.  
  725.     ; Choix : Installation Picasso96 / ModePro
  726.     ;*****************************************
  727.     (set #Install_Selection
  728.          (askoptions
  729.              (prompt (cat "\n" #Mess_Choice "\n"))
  730.              (help "\n" #Help_Choice)
  731.              (choices "Picasso96" "ModePro")
  732.              (default (+ #Flag_Picasso96 #Flag_ModePro))
  733.          )
  734.      )
  735.  
  736.     (complete 60)
  737.  
  738.     ;Copie et installation du programme `Picasso96'
  739.     ;**********************************************
  740.     (if (BITAND #Install_Selection #Flag_Picasso96)
  741.     (
  742.         (AskSource (tackon #S_Path_Picasso96 #File_Picasso96) #Picasso96_Rev)
  743.         (Expand #Source "Picasso96")
  744.         (textfile
  745.             (safe)
  746.             (dest (tackon #Working_Path #Script_Name))
  747.             (append
  748.                 "Stack 20000\n"
  749.                 "Cd " #S_Path_Install_Picasso96 "\n"
  750.                 #Working_Path "Installer " #File_Install_Picasso96
  751.                 " LANGUAGE " @language " APPNAME Picasso96 MINUSER AVERAGE\n"
  752.             )
  753.         )
  754.         (Lancement #File_Install_Picasso96)
  755.     ))
  756.  
  757.     (complete 80)
  758.  
  759.     ;Copie et installation du programme `ModePro'
  760.     ;********************************************
  761.     (if (BITAND #Install_Selection #Flag_ModePro)
  762.     (
  763.         (set #Destination #Working_Path)
  764.         (Expand (cat (tackon #S_Path_ModePro #File_ModePro) ".lzx") (fileonly #File_ModePro))
  765.         (textfile
  766.             (safe)
  767.             (dest (tackon #Working_Path #Script_Name))
  768.             (append
  769.                 "Stack 20000\n"
  770.                 "Cd " #S_Path_Install_ModePro "\n"
  771.                 #Working_Path "Installer " #File_Install_ModePro
  772.                 " LANGUAGE " @language " APPNAME ModePro MINUSER EXPERT\n"
  773.             )
  774.         )
  775.         (Lancement #File_Install_ModePro)
  776.  
  777.         (if (exists (tackon #ENVARC #File_Prefs_ModePro))
  778.             (if    (= (askbool
  779.                     (prompt (cat "\n\n" #Mess_Prefs_ModePro))
  780.                     (help "\n" #Help_Prefs_ModePro)
  781.                 ) "1")
  782.                 (
  783.                     (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENV #File_Prefs_ModePro))
  784.                     (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENVARC #File_Prefs_ModePro))
  785.             ))
  786.             (
  787.                 (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENV #File_Prefs_ModePro))
  788.                 (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENVARC #File_Prefs_ModePro))
  789.             )
  790.         )
  791.     ))
  792.  
  793.     (complete 90)
  794. ))
  795.  
  796. ; Installation : Install_AteoSer, Install_AteoPar, Install_AteoNet
  797. ;------------------------------------------------------------------
  798. (if (OR (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  799. (
  800.     ; Choix : Installation : AteoSerPrefs / AteoParPrefs / AteoNet
  801.     ;*************************************************************
  802.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  803.         (AteoSer)
  804.     )
  805.  
  806.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  807.         (AteoPar)
  808.     )
  809.  
  810.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  811.         (AteoNet)
  812.     )
  813.  
  814.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1"))
  815.     (
  816.         (set #Flag_AteoSer        1)
  817.         (set #Flag_AteoPar        2)
  818.         (set #Flag_AteoNet        4)
  819.  
  820.         (set #Install_Selection
  821.              (askoptions
  822.                  (prompt (cat "\n" #Mess_Choice "\n"))
  823.                 (help "\n" #Help_Choice)
  824.                 (if (= #Install_AteoNet "0")
  825.                 (
  826.                     (choices "AteoSer" "AteoPar")
  827.                     (default (+ #Flag_AteoSer #Flag_AteoPar))
  828.                 )
  829.                 (
  830.                     (choices "AteoSer" "AteoPar" "AteoNet")
  831.                     (default (+ #Flag_AteoSer #Flag_AteoPar #Flag_AteoNet))
  832.                 ))
  833.             )
  834.         )
  835.  
  836.         (if (BITAND #Install_Selection #Flag_AteoSer)
  837.             (AteoSer)
  838.         )
  839.  
  840.         (complete 60)
  841.  
  842.         (if (BITAND #Install_Selection #Flag_AteoPar)
  843.             (AteoPar)
  844.         )
  845.  
  846.         (complete 80)
  847.  
  848.         (if (BITAND #Install_Selection #Flag_AteoNet)
  849.         (
  850.             (AteoNet)
  851.             (complete 90)
  852.         ))
  853.     ))
  854. ))
  855.  
  856. ;(if (OR (= #Install_Pixel64 "1") (= #Install_AteoNet "1"))
  857. ;(
  858.         (working "\n" #Mess_CleanUp "...\n\n" #Mess_Wait)
  859.         (delete
  860.             #Working_Path
  861.              (all)
  862.              (safe)
  863.              (optional "force")
  864.         )
  865. ;))
  866.  
  867. (complete 100)
  868.  
  869. ;(exit "\n\n\n" #Mess_End "..." )
  870.